home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog Special Edition 18
/
FreelogHS18.iso
/
Editeur texte
/
Keynote
/
kntsetup.exe
/
{app}
/
keynote.exe
/
0
/
RCDATA
/
TFORM_MAIL
/
TFORM_MAIL.txt
Wrap
Text File
|
2003-11-13
|
8KB
|
337 lines
object Form_Mail: TForm_Mail
Left = 394
Top = 262
HelpContext = 510
BorderStyle = bsDialog
Caption = 'Send note via E-mail'
ClientHeight = 297
ClientWidth = 507
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Position = poScreenCenter
OnActivate = FormActivate
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object Label_Status: TLabel
Left = 25
Top = 245
Width = 48
Height = 16
Caption = 'Ready.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clHighlight
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = [fsBold]
ParentFont = False
end
object Button_OK: TButton
Left = 20
Top = 265
Width = 75
Height = 25
Hint = 'Accept settings and send note'
Caption = '&E-mail note'
Default = True
TabOrder = 0
OnClick = Button_OKClick
end
object Button_Cancel: TButton
Left = 105
Top = 265
Width = 75
Height = 25
Hint = 'Close dialog box without sending email'
Caption = 'Cancel'
TabOrder = 1
OnClick = Button_CancelClick
end
object Pages: TPageControl
Left = 5
Top = 5
Width = 496
Height = 231
ActivePage = Tab_Send
TabOrder = 2
object Tab_Send: TTabSheet
Caption = 'Message settings'
object GroupBox_Source: TGroupBox
Left = 5
Top = 0
Width = 256
Height = 91
Caption = ' What to send? '
TabOrder = 0
object RB_Current: TRadioButton
Left = 15
Top = 20
Width = 231
Height = 17
Hint = 'Email only currently active note'
Caption = '&Current note'
Checked = True
TabOrder = 0
TabStop = True
end
object RB_All: TRadioButton
Left = 15
Top = 40
Width = 151
Height = 17
Hint = 'Email ALL notes in currently open file'
Caption = '&All notes'
TabOrder = 1
end
object RB_File: TRadioButton
Left = 15
Top = 60
Width = 221
Height = 17
Hint = 'Email the whole KeyNote file'
Caption = '&Whole file (recipient must have KeyNote)'
TabOrder = 2
end
end
object GroupBox1: TGroupBox
Left = 270
Top = 0
Width = 211
Height = 91
Caption = ' Format '
TabOrder = 1
object Label7: TLabel
Left = 10
Top = 65
Width = 52
Height = 13
Caption = 'C&odepage:'
FocusControl = Combo_Charset
end
object RB_PlainText: TRadioButton
Left = 10
Top = 15
Width = 113
Height = 17
Hint = 'Send note text without RTF formatting'
Caption = 'As &plain text (inline)'
Checked = True
TabOrder = 0
TabStop = True
end
object RB_RTF: TRadioButton
Left = 10
Top = 35
Width = 131
Height = 17
Hint = 'Send formatted text as an RTF file'
Caption = 'As &RTF (attachment)'
TabOrder = 1
end
object Combo_Charset: TComboBox
Left = 70
Top = 60
Width = 126
Height = 21
Hint = 'Codepage (KeyNote performs NO conversion)'
ItemHeight = 13
Items.Strings = (
'ISO-8859-1'
'ISO-8859-2'
'ISO-8859-5'
'ISO-8859-9'
'Windows-1250'
'Windows-1251'
'Windows-1253')
TabOrder = 2
end
end
object GroupBox2: TGroupBox
Left = 5
Top = 95
Width = 476
Height = 101
Caption = ' Message information '
TabOrder = 2
object Label1: TLabel
Left = 15
Top = 25
Width = 16
Height = 13
Caption = '&To:'
FocusControl = Combo_TO
end
object Label2: TLabel
Left = 15
Top = 75
Width = 39
Height = 13
Caption = '&Subject:'
FocusControl = Edit_Subject
end
object Label3: TLabel
Left = 15
Top = 50
Width = 16
Height = 13
Caption = '&Cc:'
FocusControl = Combo_CC
end
object Combo_TO: TComboBox
Left = 60
Top = 20
Width = 401
Height = 21
Hint = 'Enter recipient'#39's address, or select from list'
ItemHeight = 13
TabOrder = 0
end
object Edit_Subject: TEdit
Left = 60
Top = 70
Width = 401
Height = 21
Hint = 'Enter the Subject line for the mail message'
TabOrder = 2
end
object Combo_CC: TComboBox
Left = 60
Top = 45
Width = 401
Height = 21
Hint = 'Enter additional address(es), or select from list'
ItemHeight = 13
TabOrder = 1
end
end
end
object Tab_SMTP: TTabSheet
Caption = 'SMTP server settings'
object GroupBox3: TGroupBox
Left = 5
Top = 0
Width = 476
Height = 196
TabOrder = 0
object Label4: TLabel
Left = 15
Top = 20
Width = 65
Height = 13
Caption = '&SMTP server:'
FocusControl = Edit_SMTPServer
end
object Label5: TLabel
Left = 355
Top = 20
Width = 22
Height = 13
Caption = '&Port:'
FocusControl = Edit_Port
end
object Label6: TLabel
Left = 15
Top = 70
Width = 122
Height = 13
Caption = '&From (your email address):'
FocusControl = Edit_From
end
object Label8: TLabel
Left = 15
Top = 115
Width = 124
Height = 13
Caption = '&Text to place before notes'
FocusControl = Edit_FirstLine
end
object Edit_SMTPServer: TEdit
Left = 15
Top = 35
Width = 306
Height = 21
Hint = 'Name of email server used for dispatching messages'
MaxLength = 127
TabOrder = 0
end
object Edit_Port: TEdit
Left = 355
Top = 35
Width = 51
Height = 21
Hint = 'Mail server port number (or type "smtp")'
MaxLength = 5
TabOrder = 1
end
object Edit_From: TEdit
Left = 15
Top = 85
Width = 306
Height = 21
Hint = 'Your email address (The "From" field)'
MaxLength = 127
TabOrder = 2
end
object CheckBox_Log: TCheckBox
Left = 15
Top = 165
Width = 191
Height = 17
Hint = 'Keep a log of communication with SMTP server'
Caption = '&Log exchange with SMTP server'
TabOrder = 4
end
object Edit_FirstLine: TEdit
Left = 15
Top = 130
Width = 306
Height = 21
Hint = 'Optional text to be placed in the message before notes'
MaxLength = 127
TabOrder = 3
end
end
end
end
object Button_Help: TButton
Left = 190
Top = 265
Width = 75
Height = 25
Caption = '&Help'
TabOrder = 3
OnClick = Button_HelpClick
end
object SmtpCli: TSmtpCli
Tag = 0
Port = 'smtp'
CharSet = 'iso-8859-1'
ContentType = smtpPlainText
OnDisplay = SmtpCliDisplay
OnHeaderLine = SmtpCliHeaderLine
OnRequestDone = SmtpCliRequestDone
Left = 444
Top = 244
end
object GFLog: TGFLog
Active = True
MaxLines = 127
DateStamp = False
TimeStamp = True
UniqueFileName = False
AppendToFile = True
ShowErrors = True
DeactivateOnError = False
Separator = '----- LOG SESSION ENDS -----'
Left = 405
Top = 245
end
end